home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / 1581 head.change (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 10 print "[147] change diskette header-name"
  2. 20 print " disk unit nr (8-15) ?[160]8 [157][157][157][157]";
  3. 30 input u: if u<8 or u>15 then print "[145][145][145]": goto 20
  4. 40 print " disk drive nr (0/1) ?[160]0[157][157][157]";
  5. 50 input d: if d<0 or d>1 then print "[145][145][145]": goto 40
  6. 60 print " put target disk in unit";u;" drive";d
  7. 70 print " then press any key to continue"
  8. 80 get x$: if x$=""then 80
  9. 90 a=1: v=16: q$=chr$(34): p$=chr$(160)
  10. 100 t=40: s=0: i$="i"+right$(str$(d),1)
  11. 110 open 1,u,15,i$: gosub 350
  12. 120 gosub 310: f$=h$: get#2,x$,x$,a$,b$
  13. 130 print "[147] current header-name ";q$;f$;q$
  14. 140 print " diskette id is:  ";a$;b$
  15. 150 print " new name (max 16 characters) or 'quit'"
  16. 160 input " ? quit[157][157][157][157][157][157]";n$: l=len(n$): if l>v then 130
  17. 170 if n$="quit" then print "[147]";: goto 370
  18. 180 print " ok to write new header-name (y/n) ? y[157][157][157]";
  19. 190 input x$: if x$<>"y" then 130
  20. 200 if l=v then 220
  21. 210 for x=l+a to v: n$=n$+p$: next
  22. 220 print#1,"b-p:";2;4: print#2,n$;
  23. 230 print#1,"u2:";2;d;t;s: gosub 350
  24. 240 print#1,i$: gosub 350: close 2
  25. 250 print " old header-name ";q$;f$;q$
  26. 260 gosub 310: close 2: close 1
  27. 270 print " new header-name ";q$;h$;q$
  28. 280 print " change another diskette (y/n) ? y[157][157][157]";
  29. 290 input x$: if x$="y" then 60
  30. 300 print "[147]";: end
  31. 310 open 2,u,2,"#": gosub 350: h$=""
  32. 320 print#1,"u1:";2;d;t;s: gosub 350
  33. 330 print#1,"b-p:";2;4: for x=a to v
  34. 340 get#2,t$: h$=h$+t$: next: return
  35. 350 input#1,e,m$,j,k:if e=0 then return
  36. 360 print " error: ";e;m$;j;k
  37. 370 close 2: close 1: end
  38.